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MACSACTONE ONCE-ONLY ACTION ROUTINES 16-SEP-1984 oe: 1: 8 ea Macro _V04-00 Page 1 
v04-000 “SEP=1984 01:46:56 ([CMACRO.SRCJACTONE.MAR; 1 (1) 


~ TITLE RAC PAR TONE ONCE-ONLY ACTION ROUTINES 
-IDENT ‘V0Q4-000' 


'MmARBABRABRAAAAARLALARAAALALAAREAASARASARERA REARS SA PARA RS RARER A SAREE ERASERS R AE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMEN’ CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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AND  SHOUL 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: D NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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po le le lel ew le lal ale lal wl eleloleoleoleleloleleleleleleleleleleleleleleololeol ol elelelol eleloleo) 


Modify handling of enable/disable/show/noshow directives 
to also respect command qualifier level CLEARING as weil 
as SETTING of these opt ions. Modules affected are 
ENABL_DSABL and LIST_NLIST. A new flag MACSGL_DSLISF is 
employed to facilitate this manipulation. 


v0O1.15 RNOO29 R. Newland 10-Mar-1980 5 
Align table of contents so that subtitles containing 
tabs remain correctly aligned. 


OOooo0ccoe 
NOUS WR O OD NA UNE WIN OC ODNOAU EWN  O OO NOAM EWN | CO OO NOAU EWN OOONOU EWN 
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PUPP Be Be BE BB BB EB AAW NII WII PPI POMP NPU PONY N es es es Oe es 


FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 

: ABSTRACT: 

; The VAX-11 MACRO assembler translates MACRO-32 source code into object 
; modules for input to the VAX=-11 LINKER. 

ENVIRONMENT: USER MODE 

; AUTHOR: Benn Schreiber, CREATION DATE: 31-AUG-76 

: MODIFIED BY: 

V03-002 MTROO24 Mike Rhodes 4-Feb-1983 

: Print the full subtitle text in the Table of Contents. 
vO3.01 MTROOZO Mike Rhodes 7=Jul-1982 
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4042000 Breen ERt BFLe ke HNC H OS hegre Mee eee wee. 


28 ? v01.14 RNOO23 R. Newland 2-Nov-1979 
3 New ete AY codes to get error message from system 
4 : message f 
0 66 : v01.13 RNOO22 ewland 31-0¢t-1979 
o7 ; Translate SYSSLPY LINES to set Lines/page 
$09 65 : v01.12 RNOO19 R. Newland 25-0ct-1979 
4h 0g 3 Improve error = positioning 
0000 «68: v01.11 RNOOOS ewland 27-Aug-1979 
44 $3 : Remove .ALIGN LONG pte Ph 
0000 71: v01.12 RNOOO9 Newland 31-Aug-1979 
860 ue : Allow maximum cco TENT 
0000 74: v01.10 ;RNOOO2 R. Newland 01-Feb-1979 
0000 3 3 Changes for Source Update Merge, .SBTTL Line number 
0000 76 ; 
0000 77 3-- 


TION ROUTINES 


: 
9 
9 
9 
9 
9 
9 
9 
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ONAULSWN—OOOnOvIe WOO 


.SBTTL DECLARATIONS 
; INCLUDE FILES: 
> MACROS: 


$RABD 


DEF SUMCBL 


SSEp=198e OF:4e:56 


AX/VMS mag ro V04-00 
MACRO. SRCI ACTONE .MAR; 1 


Seoges 
mmmmmmnm 
—-—O>D 
zou, 
=2 00 


YMBOLS 
«DEF INE SYMBOL BLOCK OFFSETS 
: Define’ message codes 
; Define SUM control block symbols 


.PSECT MAC$RO_CODE_P1,NOWRT,GBL,LONG 
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MACSAC TONE ONCE=ONLY ACTION ROUTINES 1 mies 9 2:19: $ me Macro V04-00 Page 4 
v04-000 ERRORS FOUND BY THE GRAMMAR/PARSER “-SEP-1984 01:46: UMACRO. SRe ACTONE .MAR; 1 (3) 
68 } 9 »SBTTL ERRORS FOUND BY THE GRAMMAR/PARSER 
8 1 g ERRENT:: ; ILLEGAL FORMAT FOR .ENTRY 
1 SMAC_ERR og ee ; Get message code 
) ae 3 ! : BRB ERR_ 
007 1 § ERROPD:: ; ILLEGAL FORMAT FOR .OPDEF 
007 1 SMAC_ERR ILLOPDEF ; Get message code 
2A 3611 «+000C = 86108 BRB ERR_O 
Bade 109 
OOE 110 BDEND1:: ;-ENDM DIRECTIVE SEEN 
443 111 SOUTSIDE A_MACRO DEFINITION 
OOE 136 BDEND2:: ;.ENDR DIRECTIVE SEEN 
QOOE 11 ye REPEAT BODY 
it 114 SMAC_ERR NOTINMACRO Get spgesoge code 
ie pate M2 BRB ERR_O ISSUE ERROR, SET CR AND RETURN 
0015 117 ERRMRS:: 7MARS_TEXT = ERRO1 
0015 118 SINTOUT_X INTS$_CHKL ALIGN LIST ING 
001B 119 SMAC_ERR UNRECSTMT ; Get mes sage code 
FFDD' 30 0020 120 BSBW = MACSERRORPX TISSUE ERROR TO PASS 2 
11 opse \$ BRE ERR_1 JOIN COMMON CODE 
0025 1 § ERRDOL:: sSTATEMENT = DIRECTIVE ERRO2 
0025 124 SMAC_ERR DIRSYNX ; Get message code 
OC 11 002A 125 BRB ERR_O 
002C 126 
002C 127 ERRASN:: sASSIGNMENT = ASSIGN_HEAD ERRO2 
002C 128 SMAC_ERR ASGNMNTSYN : Get message code 
05 11 9031 129 BRB ERR_O 
0033 131 ERRMST:: sMACHINE_STAT = MACHINE_INST ERROS3 
0033 13 SMAC_ERR MCHINSTSYN 3 Get onassege code 
FFCS* 30 0038 133 ERR_O: BSBW MACSERRORPX ; Rep o pass 
5A OD 9A 0038 134 ERR-1: MOVZBL #CR,R10 TFORCE "READING OF EW Cine 
05 OO3E 135 RSB 
OO3F 136 
003F 137 ERRREF:: s OPERANDS = OPERANDS ERRO4 
OO3F 138 ;REF ERRO6 
OO3F 139 SMAC_ERR OPRNDSYNX : Get message code 
FFB9' 30 0044 140 BSBW MACSERRORPX : Issue error to pass-2 
FFB6" 31 +44 133 BRW W*MACSSKP_OPR ;SKIP TO NEXT OPERAND FIELD 
6 4A 128 ERRIIF:: :1IF STAT = IIF_HEAD ERRO3 
4A 144 SMAC_ERR MSGCMALIF ; Get message code 
1A 3611 «Q004F =: 145 BRB ERR_3 ; 
0051 146 
0051 147 ERRDAR:: ;DATA_LIST = DATA_ARGS ERRO4 
0051 148 :DATA “ARGS = DATA_LIST DSQOPN EXPR ERROG 
Boag 149 SMAC_ERR DATALSTSYN ; Get message code 
13° «1 328 139 BRB ERR_3 
05 136 ERRADR:: ;ADDR_LIST = ADDR ob 1st ERROS 
5 1 :ADDR “STAT = ADDR_TYPE 
5 154 SMAC_ERR ~ hoes ; Get message code 
ee | Bap 132 BRB ERR_ 
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MACSAC TONE ONCE=ONLY ACTION ROUTINES Mh ts hs 2: 1? 2:08 AX/VMS Macro Vv04-00 Page 5 
v04-000 ERRORS FOUND BY THE GRAMMAR/PARSER -SEP-1984 01:4 MACRO.SRCJACTONE.MAR; 1 (3) 
OOSF 157 ERRCHA:: + CHAR ARGS = CHAR_ARGS ERRO6 
FH 138 SMAC_ERR_ ILLASCARG ; Get message code 
05 11 bee 123 BRB ERR_ 

boee 161 ERRBLK:: :BLOCK. seed BLOCK _TYPE ERRO3 
0066 19¢ "$MAC naa ar eche SYNX 3; Get sege_¢ code 

FF92° 30 0068 163 ERR_3: +3 ay MACSERRORPT ISSUE mMeSS GE TO PASS 2 

05 OQO6E 164 RSB 

OO6F 165 
QO6F 166 ERREXP:: ig Aagew er: a 
OO6F 167 SMAC_ERR ILLEXPR ; Get me geg e 

FF89" 3 ie 198 BSBW MACSERRORPT ISSUE ERROR. 10 P ASS 2 

FF86" 1 bo o4 199 BRW MACSSKP_OPR SKIP TO NEXT OPERAND FIELD 
OO7A 171 ERRBRF:: :BASIC_REF = DOPN ERRO1 
007A 1% :BASIC-REF = DAT RRREG 
OO7A 17 SMAC_ERR RESOPS YN ; ith message code 

FF7E* 30 OO7F 174 BSBW MACSERRO SSUE MESSAGE TO PASS 2 

0000'CF 06 90 443 175 MOVB #ADMS RRIND, ” sca wove: ;SET MODE TO INDIRECT REGISTER 
OO00'CF 94 0087 176 CLRB = W*MACSGB USING REGISTER 'RO' 

0088 177 SINC_PC :COUNT ONE BYTE 

FF6E* 31 OO8F 178 BRW MACSSKP_OPR ‘SKIP TO CR OR COMMA AND RETURN 
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MACSACTONE ONCE-ONLY ACTION ROUTINES 16-SEP-19 4 2:19: 8 VAX/VHS Macro V04-00 Page 
v04-000 IDENT PROCESS .IDENT STATEMENT “SEP=1984 01:46: YMACRO SRe ACTONE .MAR; 1 
09 0 .SBTTL IDENT PROCESS .IDENT STATEMENT 
09 1 § p++ 
88 } 7 : FUNCTIONAL DESCRIPTION: 
009 185 ; THIS ROUTINE IS CALLED WHEN A .IDENT IS SCANNED. THE IDENT 
009 186 ; IS COPIED INTO THE BUFFER MACS$AB_IDENT. 
009 187 ; 
009 188 ;-- 
009 189 
009 190 IDENT:: 
56 OO0O'CF 9€ 009 191 MOVAB W*MACSAB_IDENT,R6 ;POINT TO IDENT STORAGE 
86 94 009 19¢ CLRB (R6)+ :CLEAR IN CASE NULL IDENT 
FF64" 30 0099 19 BSBW MACSSKIPSP :SKIP SPACES 
OD SA 91 009C 194 CMPB ~—s_- R10, #CR ZARE WE AT END OF LINE? 
49 13 OO9F 195 BEQL 40$ ;1F EQL YES 
7E SA 90 OOA1 196 MOVB R10, =(SP) sNO=-SAVE DELIMITER 
55 1F 9A OOAG 197 MOVZBL #SYMSK_MAXLEN,RS :SET MAX NUMBER OF CHARACTERS 
4 44 3; LOOP, COLLECTING IDENT. LOOK FOR END OF LINE OR MATCHING DELIMITER 
FF56" 30 OOA7 201 10$:  #BSBW  MACSGETCHR :GET NEXT CHARACTER 
6E SA 91 OOAA 20¢ CMPB = R10, (SP) :FIND DELIMITER? 
1¢ 13 OOAD 20 BEQL 20$ :IF EQL YES 
OD SA 91 OOAF 204 CMPB  =s_- R10, #CR :NO--END OF LINE? 
17. 13 00B2 soe BEQL 20$ sI1F EQL Y 
61 8F SA 91 008 06 CMPB =—s- R10, #*A/A/+*X20 :1$ CHARACTER LOWER CASE? 
09 iF O00OB8 207 BLSSU-15$ :1F LSSU NO 
7A 8F 5A 91 OOBA 208 cMeg R10, #*A/2Z/+*X20 ee 
03 1A OOBE $99 BGTRU 15$ ;1F GTRU N 
5A 620~—Ss BA_—s«OOCO 10 1CB © #*X20,R10 3 YES~-MAKE OUPPER CASE 
86 SA 90 O00C3 211 158: OVB R10, (R6)+ 3NQ=-STORE CHARACTER 
pe 55 F4O00CH 31g SOBGEQ R5,10$ Loop if there is 
55 «=p? «(00C9~— 2:1 DECL R5 i MAKE Pas NEGATIVE FOR IDENT TOO LONG 
0 6 55 C3 OOCB 214 208: SUBL3 RS, #SYMSK MAXLEN. RO *FIGURE LENGTH 0 NT 
0OOO'CF 50 90 OOCF 215 MOVE RO,W*MACS$AB_I :STORE AS FIRST revit OF IDENT 
8 SA 91 00D4 216 CMPB ss R210, (SP) + SEND WITH DELIMITER? 
11 13 00D7 g7 BEQL 40% ; F EQL YES 
00D9 18 ooee JERR M eipeseatets ocean unterminated arg 
55 05 OODE 219 ‘BUT CHECK TO SEE 
05 18 QOOEO 220 gerd 30$ sI1F GEQ UNTERM. ARG 
BOES 221 SMAC_ERR ILLSYMLEN : else IDENT is too long 
FF16" 30 OOE 33¢ 30$: BSBW  MACSERRORPT :REPORT ERRO 
5A OD 9A OOEA 32 40$: MOVZBL #CR,R10 :FORCE READING OF NEW LINE 
05 OOED 4 RSB 
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v04-000 TITLE PROCESS .TITLE STATEMENT -SEP=1984 01:46: ERACRO SRe ACTONE .MAR; 1 (5) 
ay $ .SBTTL TITLE PROCESS .TITLE STATEMENT 
EE 3 
OOEE : ; FUNCTIONAL DESCRIPTION: 
OEE 1; THIS aRQUTINE 1S CALLED WHEN A .TITLE DIRECTIVE IS SCANNED. 
OEE 3 ; ER HE OURCE LINE IS READ AND THE FIRST WORD IS 
OOEE ; STORED AS” THE PROGRAM TITLE, AND THE REST IS STORED AS THE 
OEE 3 : TITLE SUB-COMMENT IN THE LISTING HEADER BUFFER. 
OOEE § 32° 
Sa 
EE 8 TITLE: 
FFOF' 30 OOEE 239 BSBW MACS$SYMSCNUP :SCAN THE SYMBOL 
5E 50 €9 OOF1 40 BLBC RO, 40$ TBRANCH IF NO TITLE SCANNED 
56 QOOO0'CF SE O0F4 241 OVAB W*MACSAB_TMPSYM,R6 sPOINT 10 TEMP SYMBOL NAME BLOCK 
55 66 9A OOF9 24 MOVZBL (R6),R5 :GET LENG YMBOL | 
55 D6 OOFC 24 INCL RS ‘COPY THE "Ovfe COUNT ALSO 
20 66 55 2C OOFE 4 MOVCS R5,(R6),# ‘COPY INTO BUFFER uit BLANK PADDING 
O000'CF 20 0102 245 #SYMSK haxLenst, W*MACSAB_ TITLE ;INTO TITLE BUFFER 
55 86 9A 0106 246 MOVZBL (R6)+,R T TITLE LENGTH AGA IN 
1F «6200 «666 ~— (55) 20109 247 OVCS RS5,(R6),M*A/ /,#SYMSK MAXLEN, - ;COPY INTO PAGE HEADER BUFFER 
0000' CF O10E 248 W*MACSAB_HD_TITLE 
FEEC' 30 0111 249 BSBW MACSSKIPSP sSKIP SPACES 
56 OO0O'CF 9E 0114 250 MOVAB W*MACS$AB_HD_TSTRG,R6 :POINT TO WHERE TITLE SUBSTRING GOES 
20 6€ O00 2C 0119 251 MOVCS #0, (SP) I A7 /,- [BLA K FILL THE TITLE BUFFER 
66 28 011D 23g WLSTSK_TITLE_SIZ.(R “Yy 
55 00000001'8F O000°CF c1 O11F 25 ADDL3 W*MACSGL MTINELR. pnaesia “LINEBF +4 | “RS ;COMPUTE LENGTH OF SUBSTRING 
55 Q000'CF C2 0129 254 SUBL2 W*MACSGL-LINEPT,RS 
22. «15 Oige 255 BLEQ 40$ SIF LEQ NO SUBSTRING 
28 «55 «691 «20130=— 256 CMPB sR, MLSTSK_TITLE_S1Z ; STRING TOO LONG? 
03 1B 0133 257 BLEQU LEQ NO 
55 28 9A 0135 258 MOVZBL M#LSTSK TITLE SIZ,R5 :YES=-USE MAXIMUM SIZE 
OOOO'CF 55 DO 0138 259 108: MOVL R5,W°MACS$GL_TTX $12 ‘SAVE SUBSTRING LENGTH 
54 OO00'CF 01 C3 0130 360 SUBL3. #1 aAMACSCL™ “L INEPT. R4  :POINT TO BEGINNING OF TITLE SUBSTRING 
0143 36¢ : COPY TITLE SUBSTRING INTO PAGE HEADER BUFFER 
66 84 90 0143 264 208 MOVB _—(R4) +, (R6) :COPY A BYTE 
09 86 91 0146 265 CMPB  —s-« (R6) +, HT AB ‘IS CHARACTER A TAB? 
04 12 0149 266 BNEQ 30% [IF NEQ N 
FF AB 20 90 0148 267 MOVB  #AA/ /,-1(R6) :YES=--MAKE INTO A SPACE 
F155 £5 O14F 268 308 SOBGTR R5,20$- [DO WHOLE STRING 
5A 0D) O9A O13@ 269 40$ MOVZBL #CR,R10 [FORCE READING OF NEW LINE 
05 0155 270 RSB 
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MACSACTONE ONCE-ONLY ACTION ROUTINES 16-SEP-1984 02:19:08 VAX/VMS Macro V04-00 Page 
v04-000 SBTTL PROCESS .SBTTL STATEMENT mies ge: 12:88 MACRO. SRCJACTONE.MAR; 1 ’ (6) 
a138 2 .SBTTL SBTTL PROCESS .SBTTL STATEMENT 
128 74 34+ 
0136 3 ; FUNCTIONAL DESCRIPTION: 
0136 77; THIS ROUTINE PROCESSES THE . L STATEMENT. THE SUBTITLE 
156 78 ; LINE IS READ WRITTEN TO INTERMEDIATE FILE. IF WE 
3122 4 ; ARE LISTING, ane SUBTITLE L $ OUTPUT TO THE LISTING FILE 
0156 281 :-- 
0156 8¢ 
0136 8 SBTTL 
58 opp 0156 4 PUSHL R8 PRESERVE R 
56 O000'CF 00000001'8F ci 0158 38> ADDL3 #MACS$AB LINEBE +! ,wemacsal _LINELN,R6 ;FIGURE LENGTH OF SUBTITLE 
56 OOOO'CF (C2 016¢ 86 SUBL2 WeMACSGL_L T,R6 
58 56 DO 0167 287 MOVL R6, R SAVE LENGTH FOR TABLE OF CONTENTS. 
28 56 91 016A 288 CMPB sa R6 , HLSTSK_TITLE_S1Z :1S SIZE OK? 
03 1B 016D 289 BLEQU :1F LEQU M ES 
54 28 9A O16F 290 MOVZBL #LSTSK_TITLE_SIZ,R6 yNO--USE M 
50 59 56 C1 0172 91 10$: ADDL3 R6,R9,RO :SEE IF THERE. "o ENOUGH ROOM IN THE BUFFER 
50 03 CO 0176 29¢ ADDL2 4#3,R COUNT THE 2 COUNT BYTES AND ACTION BYTE 
OOOO'CF 50 D1 0179 39 CMPL RO, W*MACSGL_INTWRNPT :ROOM IN THE BUFFER? 
03 1B OI7E 94 BLEQU sIF LEQ YES 
FE7D" 30 0180 295 BSBW § MACSOUTFRAME :NO=-DUMP THE BU/FER 
50 03 56 C1 0183 296 20S: ADDL3 R sFIGURE TOTAL LENGTH OF FRAME 
FE76" 30 0187 297 BSBW MACSINTOUT SET TO STORE SBTTL IN BUF 
89 21 90 O18A 298 MOVB = #INT$ sBrIe. (R9)+ :STORE THE ACTION CODE 
89 56 90 018D 999 MOVB _—R6, (RO) + :STORE LENGTH OF SBTTL STRING 
03 14 0190 300 BGTR 40$ :IF GTR THERE IS A SUBTITLE STRING 
oocc = 31 0192 301 30S: BRW 100$ *ELSE WE ARE DONE NOW 
55 o00o'cF 01 (C3 019 302 408: SUBL3 #1,W°MACSGL_LINEPT,R5 POINT TO REAL START OF SBTTL STRING 
55 DD 0198 303 PUSHL 5 :SAVE OVER MOVC | 
59 «DD «019d «=. 304 PUSHL R9 :SAVE POINTER INTO INTERMEDIATE BUFFER 
69 65 56 28 O19F 305 MOVC R6,(R5), (RO) :COPY STRING TO INTERMEDIATE BUFFER 
59 53 DO O1A3 306 MOVL R3,R9 [UPDATE POINTER INTO INTERMEDIATE BUFFER | 
52 BEDO O01A6 307 POPL R :GET POINTER TO START SUBTTL IN BUFFER 
62 56 09 3A O1A9 308 50S: LOCC #TAB,R6, (R2) s FIND ANY TABS IN THE SUBTITLE IN INT. BUFFE 
05 13 O1AD 309 BEQL :1F EQL NO MORE 
61 20 90 O1AF 310 MOVB #*A/ /,(R1) : FOUND OND = CHANGE TO SPACE 
F511 «#0182 311 BRB 50$ ‘LOOK FOR MORE 
55 8EDO 0184 31¢ 60$: POPL R5 RESTORE POINTER TO SBTTL STRING 
OoOO'cF 65 58 28 0187 31 MOVC3 RB, (RS) ,W°MACSAB_LINEBF :COPY FOR TABLE OF CONTENTS | 
D1 6B 09 €1 O1BD 14 BBC #FLGSV_LSTXST, (RT1) , 30$ {BRANCH IF NOT DOING LISTINGS 
3168 13 €2 oC) 13 BBSS #FLS$V~ TOCrLG. (R11),70$ ;SET TOC FLAG AND SEE IF WE NEED A HEADER | 
O1cs 312 : OUTPUT TABLE OF CONTENTS HEADER 
OOOO'CF OO00'CF 00 O1C5 19 W*MACSGL_LN_PAGE ,W*MACSGL_LINE_CNT ; Set # Lines left on page | 
55 OOO'CF 9E OCC 20 MOVAB W*MAC$ RAB,R -POINT TO LISTING RAB 
205 0001'8F B80 0101 31 MOVW  #MAC$K_HD SIZE+1,RABSW_RSZ(R5) ;SET THE RECORD SIZE 
8 AS 0000'CF 3 0107 : MOVAB W*MACS$AB_AD tee uPG. RABSC_RBF(RS5) ;AND THE RECORD ADDRESS | 
0088 30 01DD 2 BSBW BT_PU “;WRITE THE TITLE LINE | 
50 O000'CF 9€ OE 4 MOVAB W*MACSAB_TOC_MSG,RO ;POINT TO TABLE OF CONTENTS MSG 
22 aS 0 9B OIE 5 MOVZBW RODS R RABSW_RS sz\ (R5) sSET THE RECORD SIZE 
28 AS 50 20 giE9 6 MOVL  RO,RABSL_RBF( [AND THE RECORD ADDRESS 
90 a 1ED ¢f BSBW SBT PUT CIN sWRITE THE LINE 
22 AS) =«B4SCO1FO 8 CLRW RABSW_RSZ(R5) :WRITE A BLANK LINE 


2 -— - ee ; 


ONCE=ONLY ACTION ROUTINES Ig-$EP-1984 02:19:08 YAX/VMS Macro V04-00 Page 9 
SBTTL PROCESS .SBTTL STATEMENT -SEP=19 1:46:56 CMACRO.SRCJACTONE.MAR; 1 (6) | 
0072 30 O1F3 329 BSBW  - SBT_PUT_LIN WRITE THE BLANK LINE 
51 rss ge 3 1F6 0 70$ MOVAB W*MACS$AB_LINEBF-24,R1 3 Point into tee ing buffer 
81 e0208) 0 8F OD 1F 1 MOVL #*A/ 7,(R1)+ : Store four A... 
1 28 90 020 : MOVE = #*A/(/, (RI) + ; and Left oathes ts 
50 0000'°CF 00 0 MOVE W°MACSGL_SRCPAG,RO {GET THE SO RCE PAGE NUMBER 
FDF3" OA 4 BSBW MACS$DEC_OUT_L2x ; OUTPUT THE PAGE NUMBER 
80 2029 8F B80 0D 5 MOVW #*A/) /7(ROT+ :ST ORE RIGHT PAREN-SPACE 
80 20 90 iF 6 80$ MOVB #*A/ /,(RO)+ :PAD WITH SPACES 
0000' 8F 0 BI 1 7 CMPW = RO, #MACSAB_LINEBF ; DONE PADDING? 
F6 «Oo 1F «(OO1A 338 BLSS ieee “LOOP FOR ALL 
7 mw @ €3 gee 39 SUBL 0,R1 : Form painter to Line number 
QooO'CF 51 pd 0 30 40 MOVL UARACSGL LIST PTR ; Set up pointe 
50 O000'CF iF 41 MOVZWL BAmACSCU'T INE,R Get (isting Tine nusber | 
FDD3' 30 Ogg 342 BSBW MACSDEC out Tabi [OUTPUT PAGE NUMBER 
11 6B 27 €1 O ¢ 4 BBC #FLGS$V “OPDFTL® tR11), 90$ ; Branch if file is not being updated | 
OO1C'CF 02 €1 0231 44 BBC #SUM_V~SRCUPD ; Branch if Line is from source 
0B 0236 345 URAC SCB+SUM_ B_FLAGS,90$ 
81 2E— 90 0237 46 MOVB #*A/./,(R1) + 3 Store period 
50 0O000'CF 3C O23A 347 MOVZWL Gonacséu LsT INST,RO ; Get insert number 
FDBE' 30 O25F H48 BSBW  MACSDEC_OUT_C2Xx : Output the insert number | 
H | 
8 18 C0 0942 350 ADDL2 #24,R8 ; Count the Line/page 
55 O000'CF 9E 024 351 MOVAB WeMACSL IST RAB,R5 ;POINT TO LISTING RAB | 
AS 58 D0 024A 33¢ MOVL R8,RABSW_RSZ(R5) R CORD SIZE 
28 AS” FFE8'CF 9E O24E 35 MOVAB Bean Cea LINEBF-24, RABSL_ “RBF (RS) . one the record address | 
0011 30 0254 354 BSBW SBT PUT CIN THE TOC LINE 
OOOO'CF D7 0257 355 DECL UeMKCSCC LINE_CNT ‘ONE Tese LINE 0 o. | 
06 12 0258 356 BNEQ 100$ :1F NEQ MORE ROOM ON PAGE | 
00 68 13 +€5 0250 357 BBC #FLGS$V_TOCFLG,(R11),100$° sELSE FLAG NEW HEADER NEEDED 
58 8ED0 0261 358 100$ POPL :RES 
SA 0D) «(9A «(0264S 3559 MOVZBL #CR,R10 :FORCE READING OF NEW LINE 
05 0267 360 $B 
0268 361 | 
0268 $06 SBT_PUT_LIN 
13 68 09 €1 0268 36 #FLGSV_LSTXST,(R11),10$ ;BRANCH IF LISTING DISABLED 
026C 364 $PUT RAB=(R5) ,- ‘WRITE LINE TO LISTING FILE 
026C 365 ERR=W°MACSERR _PuT :REPORT ANY ERRORS 
03 50 £8 0279 366 BLBS RO, 10$ :BRANCH IF GOOD P | 
FoB1" 30 O27c 367 BSBW MACSCLOSE_LIST TELSE CLOSE THE PU STING FILE 
05 O27F 368 108: RSB [KEEP ASSEMBLING 


50 FF 8F 
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50 

OOOO'CF 50 
FD70" 

67 50 

55 0000'CF 
FD65" 

1B 50 

55 0000'CF 
FDSA* 

06 50 

51 05 Al 
0A 

FD49° 

34 

0000'8F 51 


03 0000'CF 
0000'CF 09 Al 
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INES 16-SEP-1984 0g 12308 AX/VMS Macro V04-00 Page 
ENABL/ .DSABL =SEP=1984 01:46:56 CMACRO.SRCJACTONE.MAR; 1 


~SBTTL ENABL/DSABL PROCESS .ENABL/.DSABL 


;++ 
; FUNCTIONAL DESCRIPTION: 


THESE TWO ROUTINES PROCE 


: SS _.ENABL/.DSABL DIRECTIVES. THE 
: APPROPRIATE FLAGS ARE SET/CLEA N PASS 1 AND CODE I 


PUT IN THE INTERMEDIATE DO THE SAME ON PASS 2. 


ENABL: : ;DIRECTIVE = KENABL 
CVTBL #=-1,R0 ;ENABLE ANY OPTIONS 
BRB ENABL_DSABL :GO TO COMMON CODE 
DSABL:: ;DIRECTIVE = KDSABL 
CLRL RO :D1 SABLE ANY OPTIONS 
ENABL _DSABL : 
MOVL RO, yore DIRFLG :SET THE FLAG FOR LATER 
BSBW MACSSYMS NUP :SCAN NEXT OPTION 
BLBC RO,50$ ;BRANCH IF NO OPTION SCANNED 
MOVAB Beith onions. ;POINT TO ENABLE OPTIONS LIST 
BSBW MACSSRC_LIST ;LOOK FOR - OPTION WE SCANNED 
BLBS R BRANCH IF FOUND 
MOVAB W°ENBSG_ LONGNAMES ,R5 :NO==TRY 1" LONG NAMES 
BSBW MACS$SRC_LIST ;LOOK FOR i 
BLBC RO,10$ ~ ‘BRANCH IF N UND 
MOVL SYMSL _VAL(R1),R1 :POINT TO THE "REAL BLOCK 
BRB [AND CONTINUE 
10$: $SMAC_ERR NOTENABOPT ; Get error message code 
asee ons ; SEND TO PASS 2 
208: CMPW R1,#ENBSG_LOCALSYMB WAS THIS *.ENABL LSB‘? 
BNEQ 308 F NEQ NO 
BLBC W*MACSGL_DIRFLG,30$ iYES~=BRANCH “4 prseee 
BSBW MACSSET_REW_LSB NO=-ENABLE A a. 
30$: BITW SYMSW_ FCAGCRI). W*MACSGL _ENLISE iSET BY" COMMAND? 
BNEQ 40$ ;IF NEQ YES--DO NOT CHANGE HERE 
BITW SYMSW_FLAG(R1) ,W*MACSGL _DSLISF ; CLEARED BY COMMAND? 
BNEQ 40$ “3IF me By NOT CHANGE 


HERE 
MOVAB = SYMS$L ett R2 :POINT 7. vA WORD FOR OPTION 
MOVL W*MACSGL_DIRFLG, (R2) SCET/CLEAR THE OPTION 
SINTOUT_LW INTS $-SETLONG. <W*MACSGL_DIRFLG,R2> ;SET/CLEAR FLAG ON PASS 2 
40$: BSBW MA e Vie pte a i 


CMPB eR 
BNEQ ENABL “OSKBL IF NEQ NO-<SCAN sf OR NEXT OPTION 
BSBW MACSGETCHR [YES--SKIP THE COMMA 
BRB 40$ : CONT INUE 

50$: RSB 


co —— = $< 


| — 1 | 
MACSAC TONE ONCE-ONLY ACTION ROUTINES 16-SEP-19 4 2:19: 8 VAX/ VMS Macro V04-00 Page 11. MAC 
v04=000 LIST/NLIST PROCESS .LIST/.NLIST ~REP=1984 01:46:56 LMACRO.SRe ACTONE .MAR; 1 ' (8) | Tat 
FB 4 : .SBTTL LIST/NLIST PROCESS .LIST/.NLIST 
| FRG; | 
| FB é 2 ; FUNCTIONAL DESCRIPTION: 
| 6 FB Ge? : THESE TWO ROUTINES PROCESS THE .LIST/.NLIST DIRECTIVES. 
| FB 4B: — IS SCANNED TO GET THE OPTIONS (IF ANY) AND THE 
O2FB 429 : APPROPRIATE FLAGS ARE CLEARED IN PASS 1 AND CODE IS SENT 
| 9 FB $30 : TO THE INTERMEDIATE BUFFER TO DO SO ON PASS 2. 
O2FB 43¢ i-- 
| O2FB 43 
OOFB 434 LIST: :DIRECTIVE = KLIST 
| 50 FF BF 98 O2FB 435 CVIBL #-1,R0 ‘SET ANY FLAGS 
01 DD OFF 436 PUSHL # S INCREMENT LISTING LEVEL 
06 11 0301 437 BRB LIST_NLIST 
0303 438 
| 0303 439 NLIST:: :DIRECTIVE = KNLIST 
50 D4 0303 440 CLRL = RO SCLEAR ANY FLAGS 
7E FF BF (98 0305 441 CVTBL #-1,-(SP) :DECREMENT LEVEL 
| 0309 ag 
0309 443 LIST_NLIST: 
| 0309 444 
O000'CF 50 00 0309 445 MOVL RO WeMACSGL DIRFLG :SET THE FLAG FOR LATER | 
FCEF* 30 O30E 446 BSBW MACSSYMSCNUP ‘SCAN FOR AN OPTION 
| 2450 £8 0311 447 BLBS_ _—RO ios ‘BRANCH IF OPTION SCANNED 
| OOOO'CF BE CO 0314 448 ADDL2  (SP)+ y*MACSGL LIST_LVL :NO““ADJUST LISTING LEVEL | 
0319 449 SINTOUT LW, Its. TLONG, ND CODE fOR PASS 5 TO DO THE SAME | 
0319 450 NcsGre List (ve macsice List 
0399 451 SIMTOUT ht INTs. SETLONG, <#1 , #MACSGL List It sSET '.LIST/.NLIST" FLAG 
05 0337 43¢ sALC DONE 
0338 «4453; 
0338 434 : THERE WAS AT LEAST ONE OPTION ON THE LINE 
BE DS 0338 456 ios: TSTL  (SP)+ :CLEAR THE STACK 
| 55 QO00'CF 9E O33A 457 20S: MOVAB W*LST$G_DIRLIST,RS ;POINT TO OPTION NAMES 
| FCBE' 30 O33F 458 BSBW  MACS$SRC“LIST *LOOK UP THE OPTION NAME 
| 18 50 =€8 0342 459 BLBS R0,40$ ~ :BRANCH IF FOUND | 
55 O000'CF SE 0345 460 MOVAB W*LSTS$G_LONGNAMES ,R5 :NO--TRY THE LONG NAMES 
FCB3' 30 034A 461 BSBW MACESR C“LIST ‘LOOK FOR IT 
06 50 £9 0340 46¢ BLBC [BRANCH IF NOT FOUND 
51 05 Ai DO 0350 46 MOVL SY ASL _VAL(R1),R1 SPOINT TO THE REAL BLOCK 
OA 11 0354 464 BRB ; AND CONT INUE 
$326 465 30$: $MAC_ERR NOTLGLISOP Get message code 
FAR" 30 0358 466 BSBW  MACSERRORLN SEND TO PASS 2 
23. 0356 467 BRB 50$ ; | 
036 468 ; 
| 0 60 469 : OPTION WAS FOUND 
0000'CF O09 Al B3 360 471 40$:  BITK  SYMSW_FLAG(R1),W*MACSGL_ENLISF ;SET BY COMMAND? | 
1B if 66 47¢ BNEQ 50$ -YES=-DO NOT CHANGE HERE 
0000'CF O09 Al B3 0368 47 BITW  SYMSW_FLAG(R1) ,W*MACSGL -bstIst ; CLEARED BY COMMAND? 
13 «12 366 474 BNEQ 50$ sI1F NEQ YES--DO NOT CHANGE HERE 
| 52 05 Al 9 3700475 MOVAB SYMSL_VAL(R1) ,R2 :POINT TO vA LU UE 
| 62 OOO0'CF OD 374 476 SOVL “MACSGL_DIRFLG, (R2) *SET/CLEAR F 
0379 47 SINTOUT_LW INTS SETLONG, < <(R2),R2> TELL L PASS. 6 TO DO IT TOO 
| FC7A' 30 0383 478 50S BSBW “MACSSKIPS sSKIP SPACES 
| 


— ae a ee ---— 


—_———_————— ——_—  —— —  — 


cc 
MACSAC TONE ONCE=ONLY ACTION ROUTINES 16-SEP-1984 02:19: AX/VMS Macro V04-00 Page 1 MAC 
Voee etaai Sr bRoCESS aT RES List 8-8 P= 1984 §F:] 3:08 MACRO. SRCJACTONE .MAR; 1 9 18) vod 
| 2c (SACO : 479 CMPBseR10, #*A/,/ DID WE GET TO A COMMA? | 

5, 12 480 BNEQ | 

FC72' 3 B 481 BSBW  MACSGETCHR iYES™<GET NEXT CHARACTER 

| F311 «O3BE CG é BRB 0$ | 
| FC6D' 30 0 30 483 60$: BSBW  MACS$SYMSCNUP “FIND AN OPTION 
AG 50 £8 0393 484 BLBS RO, 208 BRANCH IF OPTION SCANNED | 
| 05 0396 485 RSB | 


MACSAC TONE ONCE-ONLY ACTION ROUTINES 16-SEP-19 a} $ ais Macro V04-00 Page 13 
v046=000 PROCESS .CROSS/.NOCROSS DIRECTIVES mets §F:12 YRACRO SRE ACTONE MAR; 1 ° (9) 
0 97 ish .SBTTL PROCESS .CROSS/.NOCROSS DIRECTIVES 
: 97 489 ;+4 | 
0 4 490 : FUNCTIONAL DESCRIPTION: 
97 49¢ : THESE TWO ROUTINES PROCESS THE .CROSS AND .NOCROSS | 
97 493: DIRECTIVES. 
97 494: 
0397 495 :-- 
397 496 
97 497 CROENB:: :DIRECTIVE = KCROSS 
O3F2'CF OF 397 498 PUSHAB W*CLR_XCRF SACTION ROUTINE FOR SYMBOLS 
56 «04 «(039B O49 CLRL oR [FLAG THIS IS ENABLE 
0711 0390 300 BRB CROS_0 ‘JOIN COMMON CODE 
039F 208 CRODSB:: s DIRECTIVE = KNCROS 
O3EC'CE OF O39F 50 PUSHAB W*SET_XCRF ‘ACTION ROUTINE FOR SYMBOLS 
56 01 00 O3A3 304 MOVL #1,R6 [FLAG THIS IS DISABLE 
FC57" 30 O3A6 505 CROS_O: BSBW §§ MACSSKIPSP ‘SKIP SPACES 
Op SA 91 O83A9 506 CMPB —s R10, #CR :JUST THE DIRECTIVE? 
af 13 O3AC 307 BEQL [IF EQL YES 
O3AE 509 : LOOP, SCANNING SYMBOL NAMES. SET OR CLEAR SYMSM_XCRF IN THE 
OSAE 310 > SYMBOL FLAGS FOR EACH SYMBOL FOUND, AS APPROPRIATE. 
FC4F* 30 O3AE 312 50$:  BSBW - MACSSYMSCNUP :SCAN A SYMBOL NAME 
0A 50 E€8 0381 51 BLES _—RO, 308 ‘BRANCH IF WE GOT ONE 
0384 514 SMAC_ERR DIRSYNX : No--syntax error 
; FC44" 30 0389 515 BSBW” MACSERRORPT REPORT THE ERROR 
1¢ #11 O38c 516 BRB :FINISH UP 
FC3F* 30 O3BE 517 30$: § BSBW MACSINSUSRSYMTB SLOOK UP THE SYMBOL NAME (INSRT IF NOT FOUND 
0350 £9 O3c1 518 BLBC RO, 40$ :IF NOT FOUND, JUST IGNORE IT 
00 BE 16 03€4 519 JSB a(§P) [CALL ACTION ROUTINE TO SET/CLEAR XCRF 
FC36" 30 O3C7 520 40$:  BSBW  MACSSKIPSP :SKIP SPACES 
2c 5A 91 O83CA 521 CMPB se R10, #*A/,/ ;STOP_ON A COMMA? 
06 12 O3¢D 522 BNEQ 50$ F NEQ NO 
FC2E' 30 O3CF 523 BSBW § MACSGETCHR :YES--GET NEXT CHAR 
FCOB' 30 O3D2 524 BSBW MAC$SKIPSP tAND THEN SKIP SPACES 
0D SA 91 03D5 525 SOS: CMPB = R10, #CR [END OF LINE? 
D4 12 0308 526 BNEQ 20% ‘IF NEQ NO 
BE 0S O3DA 527 60S: TSTL  (SP)+ SYES=--CLEAR STACK 
me tee in yenren 
0300 530 : THERE WERE NO SYMBOL NAMES ON THE LINE. IF .CROSS, CLEAR THE XCRF 
O5p0 3 1: BIT IN FLAGS. IF .NOCROSS, SET IT. | 
D5 9300 338 70$: TSTL (SP)+ sCLEAR THE STACK 
05 56 £9 O3DF 534 BLBC = R6, 908 BRANCH IF THIS WAS .CROSS 
00 68 iF €3 O3E2 535 BBCS #FLGSV_XCRF,(R11),.+1 .NOCROSS=-SET XCRF FLAG 
05 O36 6 RSB ALL DONE | 
00 68 «OIF ES O3E 790$:  BBCC #FLGSV_XCRF,(R11),.41 :CROSS--CLEAR XCRF FLAG | 
5 0 EB 33 RSB | 
beet 40 .DEBUG SET_XCRF, CLR_XCRF 
O3EC 41 
O3EC 4g SET_XCRE : 
0009 Al OC €3 O3EC 54 BBCS  #SYMSV_XCRF,SYMSW_FLAG(R1),.+1 ;DISABLE CREF FOR THIS SYMBOL | 
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05 F te RSB 
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| F 3 CLR_XCRF: 

| 00 09 Al OC Fe : 26 BeCC #SYMSV_XCRF ,SYMSW_FLAG(R1),.+1 ;ENABLE CREF FOR THIS YSMBOL 
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DEFAULT DIRECTIVE ~SEP=1984 


MACRO.SRCJACTONE .MAR; 1 
-SBTTL SETDFL PROCESS .DEFAULT DIRECTIVE 


p++ 
; FUNCTIONAL DESCRIPTION: 
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So 
Sad 


THIS sp AB PROCESSES THE sDEFAUL hp ee oe , JHE ONLY 
ARGUMENT CURRENTLY IMPLEMENTED IS ‘DISPLACEMENT S 
SETS THE SER AULT DISPLACEMENT TO USE IN PECRELATIVE EXPRESSIONS 
WHEN NO EXPLICIT DISPLACEMENT IS SPECIFIED. 
: sDIRECTIVE = KDFLT 
BSBW MACSSYMSCNUP 3GET THE THING. We ARE DEFAULTING 
BLBS :BR ANCH IF WE FOUND SOMETHING 
$MAC_ERR DIRSYNX No Ay"PRton At, san. error 
BRB :REPOR grace AND_RETURN 
MOVAB W*MACSDFLT_LIST,RS ;POINT THE bist OF VALID ARGS 
BSBW MAC$SRC_LIST ; LOOK uP” THE ARG 
BLBS RO, BRA NCH IF FOUND 
ee ILLDFLTARG ; No=--report the error 
BRB 60$ SAND RETURN 
; THERE IS aati ONLY ONE THING DEFAULTED. HENCE, IT IS 
BSBW MACSSKIPSP 3SKIP SPACES 
CMPB R10, #*A/,/ ;SKIP_ TO A COMMA? 
BNEQ 7; IF NEQ NO 
BSBW MACSGETCHR sYES--SKIP IT 
BSBW MACSSKIPSP 3; THEN SKIP SPACES 
BSBW § MACSSYMSCNUP 7SCAN FOR ANOTHER SYMBOL 
BLBS RO,4 ;BRANCH IF WE FOUND ONE 
SMAC_ERR DIRSYNX :;_No--syntax error 
BRB ;REPORT ERROR 
MOVAB wRACSDSPL ARGS ,R5 POINT TO DISPLACEMENT ARGS LIST 
BSBW MACSSRC_LIST ;LOOK UP THE OPTION 
BLBS RO,50$ ~ [BRANCH IF FOUND 
SMAC_ERR CLOFLTARG No onet deine arg 
BRB ;REPORT ERROR 
MOVL SYMSL_VAL(R1) ,W*MACSGL _DFPC DSP ;SET DEFAULT DISPLACEMENT 
BSBW  MACSSRIPSP ;NOQ SKIP SPACES 
CMPB R o#CR SMAKE SURE Hy watt END OF LINE 
BEQL sIF EQL WE F 
SMAC_ERR DIRSYNX [00PS--AND WE UAERE DOING SO WELL 
BSBW MACSERRORLN [REPORT THE ERR 
ROVE #CR,R10 [FORCE END OF CINE 
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S 16-SEP-1984 02:19:08 aries M v04-00 
v04-000 ENDPRG T t Se)? 46 +98 acro 0 


EMENT “SEP=1984 EMACRO.SRe ACTONE .MAR; 1 
~SBTTL ENDPRG PROCESS .END STATEMENT 


;+4 
; FUNCTIONAL DESCRIPTION: 


BRW WU MACSPASS1_END 


:FINISH PASS 1 


T 
E 
4 5 
4 6 
4 601 ; 
“3e 808 | 
4 604 ; THIS ROUTINE IS an atte WHEN THE '.END' STATEMENT IS ENCOUNTERED. 
4 605 ; IT WILL_SCAN FOR A_ TRANSFER ADDRESS AND STORE IT AWAY IF IT 
rt ? : IS PRESENT. A JUMP IS THEN EXECUTED TO END PASS 1. 
4 6 -< 
4 6 
4 ° ENDPRG:: DIRECTIVE = KEND 
FBOF* 30 04 BSBW MACSSYMSCNUP SCAN FOR A SYMBOL cpt 
0c 50 3 Be ° BLBS :BRANCH IF SYMBOL SCANNED 
OD 5A 1 04 CMPB R10,#CR ;NO=--BUT DID WE FIND END OF LINE? 
(ie | ae 6 BEQL iTF EQL YES=-OK 
4 6 SMAC_ERR_DIRSYNX ; Else issue arate error 
OB 11 04 6 BRB ISSUE MESSA +5 
FB8D' 30 04 617 108: BSBW MACSSRCUSRSYMTB 3 YES==LOOK AME 
0A 50 E8 04 6 BLBS RO,30$ iIF LBS THEN. NAME FOUND OK 
04 6 SMAC_ERR UNDEF XFRAD ; Undefined--set to issue message 
Fess" e' 3 ? 20$: BsBu" MACSERRORLN s ISSUE MESSAGE TO PASS 2 
0000° CF 51 DO 04 622 30$: MOVL R1,W*MACSGL_XFRADR ;SET POINTER TO SYMBOL BLOCK 
0000'CF D5 04 623 40$: TSTL WAMACSGL_ IF-LEVEL sANY OUTSTANDING CONDITIONALS? 
08 15 04 6 BLEQ 50$ iIF LEQ NO 
04 6 SMAC_ERR rep aa a es--get message code 
FB6D' 30 04 6 BSBW MACSERR hg SEND MESSAGE TO PASS 2 
FB6A' 30 04 627 50S: BSBwW MACSSE :RECORD PC 
31 049 6 
04 6 
0 6 


~ END 
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RELPSECT 


SYMS$V 


“ALIGNMENT 
ALIGNFLG 
RBF 

RSZ 
BINARY 
HF LOAT 
OCTAL 
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PSC$V 
ROX$V 
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ROX$V 
SET_XCRF 
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MACSACTONE ONCE“ONLY ACTION ROUTINES 1g736b= 1388 0g 12708 Y 
Symbol table -SEP-1984 46:56 
SYM$V_SUPR = 00000 
SYMSV_WEAK = 009 2091 
SYMENTT LRG = 90000009 
SYSSPOT 3 50000009 GX 
TITLE i a9000d¢ RG 03 
* = 0000001 
x1 = 00000400 
x2 = 0000000F 
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! Psect synopsis ! 

pee wm ewe newer nem awace + 
PSECT name Allocation PSECT No. Attributes 
« 4S» 00000000 < 0.) 00 ¢ O.) NOPIC USR CON ABS LCL N 
. BLANK . 00000000 ( 0.) O1¢ 1.) NOPIC USR CON REL LCL NOS 
SABSS 0000001D <¢ 29.) 02 ¢ ¢-} NOPIC USR CON’ ABS LCL NOS 
MACS$RO_CODE_P1 00000499 ( 1177.) 03 ¢ 

Seer ewe ewe nwr ee reno em wen eee + 
: Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.02 00:0 108 «36 
Sylar $5 HBS 0:55 98:98:05 0 
ass 00:04. 290:22. 
Symbol table sort 0 BB 60:09 42 be BT EE Ee 
ass 2 132 00:00:01.32 0:00:05.41 
Symbol table output 55 00:00:00.24 00:00:91.52 
Psect synopsis output 1 obs ST 00:00:00.02 
Cross-reference output 0 00:00:00.0 00:00:00.00 
Assembler run totals 610 00:00:07.58 00:00:37.04 


The working set Limit was 1500 pages. ; 
45183 bytes (89 pages) of virtual memory were used to buffer the intermediate code. 


There were 40 pages of symbol table space allocated to hold 649 non-local is 50 local symbols. 


630 so. e Lines were read in Pass 1, producing 24 object records in Pass 
24 pages of virtual memory were used to define 22 macros. 
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! Macro library statistics ; 
pew weer men eee we eee ee ewe 


Macro Library name Macros defined 
-$255$DUA28 : CSHRLIBJSUM.MLB; 1 3 
5255$DUA28: CMACRO.OBJJMACRO.MLB; 1 1 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 7 
TOTALS (all Libraries) 22 


754 GETS were required to define 22 macros. 
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EXE RD WRT NOVEC BYTE 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
HR EXE RD 
-) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
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MAC cSac Tow 
VAX=1 = Run Statistics 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:ACTONE/OBJ=OBJ$:ACTONE MSRC$:ACTONE/UPDATE=(ENH$:ACTONE) +L18$:MACRO/LIB+SHRLIB$: SUM/LIB 
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